برای پنهان سازی آیکون های دسکتاپ

شما باید ۲ API زیر را باز کنید...

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

بعد از باز کرد API بالا ۲ دکمه بر روی فرم بذارید...یکی برای پنهان سازی و یکی برای

نمایش مجدد...

برای پنهان سازی دستور زیر را بنویسید...

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow hWnd, 0

و برای نمایش مجدد کد زیر را وارد کنید.....

   Dim hWnd As Long

    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
       ShowWindow hWnd, 5

تا یادم نرفته توی جنرال این رو هم بنویسین...

Option Explicit

...ممنون از شما...

....نظر هم بدین....